aid2005 <- read.csv("/Users/huangzhenqian/Desktop/Replication data/Chinese aid sample_main.csv")
aid2005 <- read.csv("/Users/huangzhenqian/Desktop/Replication data/Chinese aid sample_main.csv")
# keep only one unique values of  "gid"
library(dplyr)
names(aid2005)
aid2005_unique <- aid2005 %>% distinct(aid2005$geome_id,.keep_all = TRUE)
write.csv(aid2005_unique, "/Users/huangzhenqian/Desktop/Replication data/Chinese aid sample_main_cluster.csv")
12882/566
